Wird ein Datenträger entnommen werden nach einer Sicherheitsabfrage
alle geöffneten Lister dieses Datenträgers geschlossen
Einstellungen:
Einstellungen»Scripte»Disk entnommen
-----------------------------------------------
[ARexx] DOpus5:ARexx/DiskStart.dopus5 {Qp} {Qa}
-----------------------------------------------
*/
options results
parse arg port disk
IF port ~= "" THEN
ADDRESS value(port)
ELSE DO
say "Script muß von DirOpus aufgerufen werden"
exit
END
IF disk ~= "" THEN DO
lister query all stem lister_handle
if lister_handle.count=0 then exit /* wenn kein geöffneter lister dann exit */
else do
use_lister.count=0
x=1
do i=0 to lister_handle.count-1 /* pfad ermitteln */
lister query lister_handle.i path
pfad = result
if upper(substr(pfad,1,pos(':',pfad))) = upper(disk) then do /* pfad mit disk vergleichen */
use_lister.count=use_lister.count+1 /* wenn gleich dann neue stem mit benutzten listern */
use_lister.x = lister_handle.i
x=x+1
end
end
call close
end
END
ELSE NOP
exit
close: /* lister schließen */
if use_lister.count=0 then exit
else do
dopus request "'Der entfernte Datenträger "||disk||" wird in "||use_lister.count||" Lister(n) benutzt."||D2C(10)"Sollen alle diese Lister geschlossen werden?' _Ja|_Nein"
